home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / BIBLIO.DIR / 00018_Script_18 < prev    next >
Text File  |  1996-03-20  |  637b  |  25 lines
  1. -- NOTE: Change the constant in first line of goBioPage to the first frame of the book
  2. on goBioPage whichPage
  3.   sound stop 1
  4.   put 3 into firstPage
  5.   puppetTransition 2, 2, 16, true  
  6.   go frame firstPage + whichPage - 1
  7. end goBioPage
  8.  
  9. on goNearbyBioPage howMany
  10.   sound stop 1
  11.   if howMany > 0 then 
  12.     puppetTransition 2, 2, 16, true
  13.   else if howMany <0 then
  14.     puppetTransition 1, 2, 16, true  
  15.   end if
  16.   go the frame + howMany
  17. end goNearbyBioPage
  18.  
  19. on pauseFrame
  20.   go the frame
  21. end pauseFrame
  22.  
  23. on printBiblio
  24.   LeoPrint label("BiblioPrintPages"), label("BiblioPrintPagesEnd"), "BIBLIO.EXE" 
  25. end printBiblio